|
500
|
Is it possible to prevent closing the control's filter bar, so it is always shown
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Item")->DisplayFilterButton = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos");
var_Column->AllowSizing = false;
var_Column->AllowSort = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 apos ``";
var_Column->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
ComboBox1->FilterBarCaption = L"len(value) = 0 ? `<fgcolor=808080>no filter` : value";
ComboBox1->FilterBarPromptVisible = Excomboboxlib_tlb::FilterBarVisibleEnum::exFilterBarVisible;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant(0));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column1->Filter = L"Item B";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
499
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="));
var_Appearance->Add(1,TVariant("CP:3 -2 -2 2 2"));
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="));
var_Appearance->Add(2,TVariant("CP:4 -2 -2 2 2"));
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->HasButtons = Excomboboxlib_tlb::ExpandButtonEnum::exCustom;
ComboBox1->HasButtonsCustom[false] = 16777216;
ComboBox1->HasButtonsCustom[true] = 33554432;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
ComboBox1->EndUpdate();
|
|
498
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant("XP:TREEVIEW 2 1"));
var_Appearance->Add(2,TVariant("XP:TREEVIEW 2 2"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exTreeGlyphOpen] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exTreeGlyphClose] = 0x2000000;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
ComboBox1->EndUpdate();
|
|
497
|
How can I find if the control is running in DPI mode
OutputDebugString( PChar(ComboBox1->FormatABC(L"dpi = 1 ? `normal/stretch mode` : `dpi mode`",TNoParam(),TNoParam(),TNoParam())) );
|
|
496
|
How can I change the visual appearance of the +/- buttons (method 1)
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS") +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="));
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exTreeGlyphOpen] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exTreeGlyphClose] = 0x2000000;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
ComboBox1->EndUpdate();
|
|
495
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA=="));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1f0f0f0;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
494
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4" +
"AYAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgi" +
"lONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoD" +
"ISAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOl" +
"sHo8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg="));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1808080;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
493
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV") +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhC" +
"BZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOol" +
"EiHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB" +
"4PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3k" +
"UASAg"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x1808080;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
492
|
Is there a way to change the dropdown button arrow to something else ( theme, ebn )
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IAppearancePtr var_Appearance = ComboBox1->VisualAppearance;
var_Appearance->Add(1,TVariant("XP:SCROLLBAR 1 6"));
var_Appearance->Add(2,TVariant("XP:SCROLLBAR 1 7"));
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = 0x1000000;
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = 0x2000000;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
491
|
Is there a way to change the dropdown button arrow to something else ( no visual theme )
ComboBox1->BeginUpdate();
ComboBox1->UseVisualTheme = Excomboboxlib_tlb::UIVisualThemeEnum::exBorderVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exCheckBoxVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exCalendarVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exFilterBarVisualTheme | Excomboboxlib_tlb::UIVisualThemeEnum::exHeaderVisualTheme;
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
490
|
Is there a way to change the dropdown button arrow to something else ( solid color )
ComboBox1->BeginUpdate();
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonDown] = RGB(190,190,190);
ComboBox1->Background[Excomboboxlib_tlb::BackgroundPartEnum::exDropDownButtonUp] = RGB(128,128,128);
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->set_SelectItem(h,true);
ComboBox1->EndUpdate();
|
|
489
|
How can I find if there is any filter applied to the control
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::ComboBox1FilterChange(TObject *Sender)
{
OutputDebugString( L"If negative, the filter is present, else not" );
OutputDebugString( PChar(ComboBox1->Items->VisibleItemCount) );
}
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"C1";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
488
|
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->TreeColumnIndex = -1;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"C1|C2";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
487
|
Is there any method to get only the matched items and not the items with his parent
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->FilterInclude = Excomboboxlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"C1|C2";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("R1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
486
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Date");
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDate;
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->DisplayFilterDate = true;
var_Column->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"DateTime");
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortDateTime;
var_Column1->DisplayFilterButton = true;
var_Column1->DisplayFilterPattern = false;
var_Column1->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Time");
var_Column2->SortType = Excomboboxlib_tlb::SortTypeEnum::SortTime;
var_Column2->DisplayFilterButton = true;
var_Column2->DisplayFilterPattern = false;
var_Column2->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
var_Column2->FormatColumn = L"time(value)";
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Numeric");
var_Column3->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column3->DisplayFilterButton = true;
var_Column3->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"String");
var_Column4->DisplayFilterButton = true;
var_Column4->FilterList = Excomboboxlib_tlb::FilterListEnum::exShowFocusItem | Excomboboxlib_tlb::FilterListEnum::exShowCheckBox | Excomboboxlib_tlb::FilterListEnum::exSortItemsDesc;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(TDateTime(2010,1,27).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2010,1,27,10,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(1));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
h = var_Items->AddItem(TVariant(TDateTime(2011,1,27).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2011,1,27,9,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(11));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
h = var_Items->AddItem(TVariant(TDateTime(2010,11,2).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2010,11,2,9,00,00,0).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(2),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(1))));
var_Items->set_CellCaption(TVariant(h),TVariant(3),TVariant(2));
var_Items->set_CellCaption(TVariant(h),TVariant(4),TVariant(var_Items->get_CellCaption(TVariant(h),TVariant(3))));
ComboBox1->Columns->get_Item(TVariant("DateTime"))->DisplayFilterDate = false;
ComboBox1->EndUpdate();
|
|
485
|
How can I display a different column, on the control's label (method 2)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->SingleEdit = true;
ComboBox1->LabelColumnIndex = 1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->Columns->Add(L"Column 1")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
ComboBox1->Columns->Add(L"Column 2")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1 on <b>Column 1"))),TVariant(1),TVariant("Item 1 on <b>Column 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2 on <b>Column 1"))),TVariant(1),TVariant("Item 2 on <b>Column 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3 on <b>Column 1"))),TVariant(1),TVariant("Item 3 on <b>Column 2"));
var_Items->set_SelectItem(var_Items->FirstVisibleItem,true);
ComboBox1->EndUpdate();
|
|
484
|
How can I display a different column, on the control's label (method 1)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = 1;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->Columns->Add(L"Column 1")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
ComboBox1->Columns->Add(L"Column 2")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 1 on <b>Column 1"))),TVariant(1),TVariant("Item 1 on <b>Column 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 2 on <b>Column 1"))),TVariant(1),TVariant("Item 2 on <b>Column 2"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Item 3 on <b>Column 1"))),TVariant(1),TVariant("Item 3 on <b>Column 2"));
var_Items->set_SelectItem(var_Items->FirstVisibleItem,true);
ComboBox1->EndUpdate();
|
|
483
|
How do I sort the index column as numeric
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellData(TVariant(Item),TVariant(1),TVariant(var_Items->get_ItemToIndex(Item)));
}
ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
ComboBox1->ColumnAutoResize = true;
ComboBox1->ShowFocusRect = false;
ComboBox1->SingleEdit = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Next");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(4));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(4));
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Index");
var_Column1->AllowSizing = false;
var_Column1->Width = 48;
var_Column1->FormatColumn = L"(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)";
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortUserData;
var_Column1->Position = 0;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
var_Items->AddItem(TVariant("Item 6"));
var_Items->AddItem(TVariant("Item 7"));
var_Items->AddItem(TVariant("Item 8"));
var_Items->AddItem(TVariant("Item 9"));
var_Items->AddItem(TVariant("Item 10"));
ComboBox1->EndUpdate();
|
|
482
|
How can I put icons/images into buttons
ComboBox1->BeginUpdate();
ComboBox1->SingleEdit = true;
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"C+B");
var_Column->AllowSizing = false;
var_Column->Width = 48;
var_Column->FormatColumn = L"` <img>` + ( 1 + (1 index ``) mod 3 ) + `</img> `";
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(true));
var_Column->Position = 0;
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exVLines;
ComboBox1->DefaultItemHeight = 20;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
var_Items->AddItem(TVariant("Item 6"));
var_Items->AddItem(TVariant("Item 7"));
var_Items->AddItem(TVariant("Item 8"));
ComboBox1->EndUpdate();
|
|
481
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
// CellButtonClick event - Fired after the user clicks on the cell of button type.
void __fastcall TForm1::ComboBox1CellButtonClick(TObject *Sender,Excomboboxlib_tlb::HCELL Item)
{
OutputDebugString( L"CellButtonClick" );
OutputDebugString( L"Item" );
OutputDebugString( PChar(ComboBox1->Key[TNoParam()]) );
}
// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::ComboBox1CellStateChanged(TObject *Sender,Excomboboxlib_tlb::HCELL Item)
{
OutputDebugString( L"CellStateChanged" );
OutputDebugString( L"Item" );
OutputDebugString( PChar(ComboBox1->Key[TNoParam()]) );
}
ComboBox1->BeginUpdate();
ComboBox1->SingleEdit = true;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"");
var_Column->AllowSizing = false;
var_Column->Width = 32;
var_Column->FormatColumn = L"1 index ``";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Def");
var_Column1->AllowSizing = false;
var_Column1->Width = 48;
var_Column1->FormatColumn = L"` `";
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
var_Column1->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(true));
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
var_Items->AddItem(TVariant(""));
ComboBox1->EndUpdate();
|
|
480
|
How can I show only the matching items, while user types in the drop down control
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
void __fastcall TForm1::ComboBox1EditChange(TObject *Sender,long ColIndex)
{
String sLabel = ComboBox1->EditText[TVariant(ColIndex)];
OutputDebugString( L"Select the item that maches exactly the typing label: " );
OutputDebugString( L"sLabel" );
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_SelectItem(var_Items->FocusItem,false);
var_Items->set_SelectItem(var_Items->get_FindItem(TVariant(sLabel),TVariant(ColIndex),TNoParam()),true);
}
ComboBox1->BeginUpdate();
ComboBox1->SingleEdit = true;
ComboBox1->AutoComplete = false;
ComboBox1->AutoSelect = false;
ComboBox1->AutoSearch = false;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
ComboBox1->HeaderVisible = false;
ComboBox1->Columns->Add(L"Friends");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Fred"));
var_Items->AddItem(TVariant("Tina"));
var_Items->AddItem(TVariant("Tom"));
ComboBox1->EndUpdate();
|
|
479
|
How do I unselect/deselect the item (Simple style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
478
|
How do I unselect/deselect the item (DropDownList style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
477
|
How do I unselect/deselect the item (DropDown style)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->Columns->Add(L"Def");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 3"));
ComboBox1->SearchColumnIndex = 0;
ComboBox1->set_Value(TVariant("Item 2"));
Excomboboxlib_tlb::IItemsPtr var_Items1 = ComboBox1->Items;
var_Items1->set_SelectItem(var_Items1->FocusItem,false);
ComboBox1->EndUpdate();
|
|
476
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is Simple)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::Simple;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->ForeColor = RGB(128,128,188);
ComboBox1->BackColor = RGB(240,240,240);
ComboBox1->HeaderForeColor = RGB(128,128,128);
ComboBox1->SelBackColor = RGB(128,128,128);
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->ForeColorEdit = RGB(255,255,255);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
475
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDownList)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->ForeColor = RGB(255,255,255);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
474
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDown)
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDown;
ComboBox1->ColumnAutoResize = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item a"))),TVariant(1),TVariant("item b"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("item c"))),TVariant(1),TVariant("item d"));
ComboBox1->set_Value(TVariant("item a"));
ComboBox1->ForeColorEdit = RGB(255,255,255);
ComboBox1->BackColorEdit = RGB(0,0,0);
ComboBox1->Enabled = false;
ComboBox1->EndUpdate();
|
|
473
|
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection
// DropUp event - Occurs when the drop-down portion of the control is hidden.
void __fastcall TForm1::ComboBox1DropUp(TObject *Sender)
{
ComboBox1->set_Value(TVariant(""));
}
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::ComboBox1SelectionChanged(TObject *Sender)
{
OutputDebugString( L"You selected: " );
OutputDebugString( PChar(ComboBox1->get_Value()) );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->AutoSearch = true;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is a bit of text"));
var_Items->AddItem(TVariant("This is a another text"));
var_Items->DefaultItem = var_Items->InsertItem(TNoParam(),TNoParam(),TVariant(""));
var_Items->set_ItemPosition(0,0);
var_Items->set_SortableItem(0,false);
ComboBox1->EndUpdate();
|
|
472
|
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->HeaderVisible = false;
ComboBox1->AutoSearch = true;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default")->AutoSearch = Excomboboxlib_tlb::AutoSearchEnum::exContains;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("This is a bit of text"));
var_Items->AddItem(TVariant("This is a another text"));
ComboBox1->EndUpdate();
|
|
471
|
If the user selects an item from the list, how can I clear that selection and return the control to the unselected state with the PROMPT text
// DropUp event - Occurs when the drop-down portion of the control is hidden.
void __fastcall TForm1::ComboBox1DropUp(TObject *Sender)
{
ComboBox1->EditText[TVariant(0)] = L"";
}
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::ComboBox1SelectionChanged(TObject *Sender)
{
OutputDebugString( L"You selected: " );
OutputDebugString( PChar(ComboBox1->get_Value()) );
}
ComboBox1->BeginUpdate();
ComboBox1->LabelHeight = 23;
ComboBox1->IntegralHeight = true;
ComboBox1->AutoComplete = false;
ComboBox1->AutoSearch = false;
ComboBox1->AutoDropDown = true;
ComboBox1->Columns->Add(L"Default")->Prompt = L"<i><fgcolor=808080>type something</fgcolor></i>";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(0));
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
ComboBox1->EndUpdate();
|
|
470
|
How do I get notified once the user changes the Filter For field
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
void __fastcall TForm1::ComboBox1EditChange(TObject *Sender,long ColIndex)
{
OutputDebugString( L"ColIndex: " );
OutputDebugString( L"ColIndex" );
OutputDebugString( L"Label: " );
OutputDebugString( ComboBox1->EditText[TVariant(0)] );
OutputDebugString( L"FilterFor: " );
OutputDebugString( ComboBox1->EditText[TVariant(-1)] );
}
ComboBox1->BeginUpdate();
ComboBox1->FilterForVisible = true;
ComboBox1->FilterForBackColor = RGB(240,240,240);
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
ComboBox1->EndUpdate();
|
|
469
|
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button
ComboBox1->BeginUpdate();
ComboBox1->LabelHeight = 40;
ComboBox1->ScrollWidth = 0;
ComboBox1->ScrollHeight = 0;
ComboBox1->DropDownButtonWidth = 40;
ComboBox1->EndUpdate();
|
|
468
|
Does your control supports scrolling by touching the screen
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExComboBox\\Sample\\Access\\sample.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
ComboBox1->DataSource = (IDispatch*)rs;
ComboBox1->ScrollBySingleLine = true;
ComboBox1->AutoDrag = Excomboboxlib_tlb::AutoDragEnum::exAutoDragScrollOnShortTouch | Excomboboxlib_tlb::AutoDragEnum::exAutoDragScroll;
ComboBox1->EndUpdate();
|
|
467
|
How can I make bigger/enlarge the control's drop down button
ComboBox1->BeginUpdate();
ComboBox1->LabelHeight = 40;
ComboBox1->ScrollWidth = 40;
ComboBox1->EndUpdate();
|
|
466
|
How do I select a NULL/empty value
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->DefaultItem = var_Items->InsertItem(TNoParam(),TNoParam(),TVariant(""));
var_Items->set_ItemPosition(0,0);
var_Items->set_SortableItem(0,false);
ComboBox1->set_Value(TVariant(""));
ComboBox1->EndUpdate();
|
|
465
|
How can I add a vertical padding
ComboBox1->BeginUpdate();
ComboBox1->DrawGridLines = Excomboboxlib_tlb::GridLinesEnum::exAllLines;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Padding");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(6));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingRight,TVariant(6));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingTop,TVariant(6));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellPaddingBottom,TVariant(6));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("padding"));
var_Items->AddItem(TVariant("padding"));
ComboBox1->EndUpdate();
|
|
464
|
How can I add or change the padding (spaces) for captions in the control's header
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Padding-Left")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(18));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Padding-Right");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(18));
var_Column->HeaderAlignment = Excomboboxlib_tlb::AlignmentEnum::RightAlignment;
ComboBox1->EndUpdate();
|
|
463
|
Is it possible to change the height for all items at once
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(0,true);
ComboBox1->EndUpdate();
ComboBox1->DefaultItemHeight = 12;
ComboBox1->Items->set_ItemHeight(0,12);
|
|
462
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"MAZDA";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
var_Column1->DisplayFilterButton = true;
var_Column1->DisplayFilterPattern = false;
var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column1->Filter = L"AIR BAG";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
461
|
How can I have a case-sensitive filter
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Mazda";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
var_Column1->DisplayFilterButton = true;
var_Column1->DisplayFilterPattern = false;
var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column1->Filter = L"Air Bag";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
460
|
Is it possible to filter the items as I type
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
void __fastcall TForm1::ComboBox1EditChange(TObject *Sender,long ColIndex)
{
ComboBox1->Columns->get_Item(TVariant(0))->Filter = ComboBox1->get_EditText(TVariant(0));
ComboBox1->ApplyFilter();
}
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
ComboBox1->SingleEdit = true;
ComboBox1->AutoComplete = false;
ComboBox1->AutoDropDown = true;
ComboBox1->IntegralHeight = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Items");
var_Column->Prompt = L"<i><fgcolor=808080>Start Filter</fgcolor></i>";
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("AB"));
var_Items->AddItem(TVariant("AC"));
var_Items->AddItem(TVariant("BA"));
var_Items->AddItem(TVariant("BC"));
var_Items->AddItem(TVariant("CC"));
ComboBox1->EndUpdate();
|
|
459
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->EditText[TVariant(0)] = L"C";
|
|
458
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->EditText[TVariant(0)] = PChar(ComboBox1->Items->get_CellCaption(TVariant(ComboBox1->Items->get_ItemByIndex(2)),TVariant(0)));
|
|
457
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->Select[TVariant(0)] = TVariant(ComboBox1->Items->get_CellCaption(TVariant(ComboBox1->Items->get_ItemByIndex(2)),TVariant(0)));
|
|
456
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
ComboBox1->Select[TVariant(0)] = TVariant("C");
|
|
455
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IConditionalFormatPtr var_ConditionalFormat = ComboBox1->ConditionalFormats->Add(L"1",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ForeColor = RGB(255,0,0);
var_ConditionalFormat->ApplyTo = Excomboboxlib_tlb::FormatApplyToEnum(0x1);
ComboBox1->Columns->Add(L"C1");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"C2");
var_Column->HeaderBold = true;
var_Column->HTMLCaption = L"<fgcolor=FF0000>C2";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
ComboBox1->EndUpdate();
|
|
454
|
How can I add a horizontal scroll bar
ComboBox1->BeginUpdate();
ComboBox1->ScrollBySingleLine = true;
ComboBox1->ColumnAutoResize = false;
ComboBox1->BackColorAlternate = RGB(240,240,240);
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Default");
var_Column->Width = 512;
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(false));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(String("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 19") +
"99. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single s" +
"ite where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you rea" +
"l components. No registration required, no nag screens, no limitations, unlimited evaluation time."));
var_Items->AddItem(TVariant(String("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowin") +
"g the user either to type a value directly into the control or choose from the list of existing options."));
ComboBox1->EndUpdate();
|
|
453
|
Does the control have the option to have a horizontal scroll to show entries which are longer than the display
ComboBox1->BeginUpdate();
ComboBox1->ColumnAutoResize = false;
ComboBox1->Columns->Add(L"Default")->Width = 512;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(String("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 19") +
"99. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single s" +
"ite where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you rea" +
"l components. No registration required, no nag screens, no limitations, unlimited evaluation time."));
var_Items->AddItem(TVariant(String("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowin") +
"g the user either to type a value directly into the control or choose from the list of existing options."));
ComboBox1->EndUpdate();
|
|
452
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Child 2";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Pos.1");
var_Column1->FormatColumn = L"1 ropos ''";
var_Column1->Position = 0;
var_Column1->Width = 32;
var_Column1->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos.2");
var_Column2->FormatColumn = L"1 ropos ':'";
var_Column2->Position = 1;
var_Column2->Width = 32;
var_Column2->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Pos.3");
var_Column3->FormatColumn = L"1 ropos ':|A-Z'";
var_Column3->Position = 2;
var_Column3->Width = 32;
var_Column3->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos.4");
var_Column4->FormatColumn = L"1 ropos '|A-Z|'";
var_Column4->Position = 3;
var_Column4->Width = 32;
var_Column4->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->Add(L"Pos.5");
var_Column5->FormatColumn = L"'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->Position = 4;
var_Column5->Width = 32;
var_Column5->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column6 = ComboBox1->Columns->Add(L"Pos.6");
var_Column6->FormatColumn = L"'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'";
var_Column6->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column6->Position = 5;
var_Column6->Width = 48;
var_Column6->AllowSizing = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
451
|
How do I prevent scrolling the control's data after user does the sort
ComboBox1->EnsureOnSort = false;
ComboBox1->Columns->Add(L"Column");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->PutItems(ComboBox1->GetItems(TVariant(0)),TNoParam());
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
|
|
450
|
Is it possible to auto-numbering the children items too
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Pos.1");
var_Column->FormatColumn = L"1 rpos ''";
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->Add(L"Pos.2");
var_Column1->FormatColumn = L"1 rpos ':'";
var_Column1->Position = 1;
var_Column1->Width = 32;
var_Column1->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column2 = ComboBox1->Columns->Add(L"Pos.3");
var_Column2->FormatColumn = L"1 rpos ':|A-Z'";
var_Column2->Position = 2;
var_Column2->Width = 32;
var_Column2->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column3 = ComboBox1->Columns->Add(L"Pos.4");
var_Column3->FormatColumn = L"1 rpos '|A-Z|'";
var_Column3->Position = 3;
var_Column3->Width = 32;
var_Column3->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column4 = ComboBox1->Columns->Add(L"Pos.5");
var_Column4->FormatColumn = L"'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'";
var_Column4->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column4->Position = 4;
var_Column4->Width = 32;
var_Column4->AllowSizing = false;
Excomboboxlib_tlb::IColumnPtr var_Column5 = ComboBox1->Columns->Add(L"Pos.6");
var_Column5->FormatColumn = L"'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'";
var_Column5->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column5->Position = 5;
var_Column5->Width = 48;
var_Column5->AllowSizing = false;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
ComboBox1->EndUpdate();
|
|
449
|
How can I show the child items with no identation
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
ComboBox1->Indent = 12;
ComboBox1->HasLines = Excomboboxlib_tlb::HierarchyLineEnum::exThinLine;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
|
|
448
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
447
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
|
|
446
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesInsideLeaf;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
445
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLinesInside;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
444
|
Is there other ways of showing the hierarchy lines (exGroupLines)
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exGroupLines;
ComboBox1->Indent = 12;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("SubChild 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
443
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default positive)'");
h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '2|.|3|,|1|1')");
h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default negative)'");
h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '2|.|3|,|1|1')");
ComboBox1->EndUpdate();
|
|
442
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(0.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(0.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'");
ComboBox1->EndUpdate();
|
|
441
|
How can I specify the format for negative numbers
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(-100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'");
ComboBox1->EndUpdate();
|
|
440
|
Is it possible to change the grouping character when display numbers
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'");
ComboBox1->EndUpdate();
|
|
439
|
How can I display numbers with 2 digits in each group
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100000.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'");
ComboBox1->EndUpdate();
|
|
438
|
How can I display my numbers using a different decimal separator
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'");
ComboBox1->EndUpdate();
|
|
437
|
Is it possible to display the numbers using 3 (three) digits
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Def")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '') + ' <fgcolor=808080>(default)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format '3') + ' <fgcolor=808080>(3 digits)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format 2) + ' <fgcolor=808080>(2 digits)'");
h = var_Items->AddItem(TVariant(100.27));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"(value format 1) + ' <fgcolor=808080>(1 digit)'");
ComboBox1->EndUpdate();
|
|
436
|
Is it possible to format numbers
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Name");
Excomboboxlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"A");
var_Column->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column->AllowSizing = false;
var_Column->Width = 36;
var_Column->FormatColumn = L"len(value) ? value + ' +'";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"B");
var_Column1->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column1->AllowSizing = false;
var_Column1->Width = 36;
var_Column1->FormatColumn = L"len(value) ? value + ' +'";
Excomboboxlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"C");
var_Column2->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column2->AllowSizing = false;
var_Column2->Width = 36;
var_Column2->FormatColumn = L"len(value) ? value + ' ='";
Excomboboxlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"A+B+C");
var_Column3->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
var_Column3->Width = 64;
var_Column3->ComputedField = L"dbl(%1)+dbl(%2)+dbl(%3)";
var_Column3->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
var_Column3->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(4),Excomboboxlib_tlb::CaptionFormatEnum::exComputedField);
long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(7));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(3));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(1));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(-2));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(-2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(-4));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(-4));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
|
|
435
|
Is it possible to limit the height of the item while resizing
// InsertItem event - Occurs after a new item has been inserted to Items collection.
void __fastcall TForm1::ComboBox1InsertItem(TObject *Sender,Excomboboxlib_tlb::HITEM Item)
{
ComboBox1->Items->set_ItemMinHeight(Item,18);
ComboBox1->Items->set_ItemMaxHeight(Item,72);
}
ComboBox1->BeginUpdate();
ComboBox1->ItemsAllowSizing = Excomboboxlib_tlb::ItemsAllowSizingEnum::exResizeItem;
ComboBox1->ScrollBySingleLine = false;
ComboBox1->BackColorAlternate = RGB(240,240,240);
ComboBox1->Columns->Add(L"Names");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Mantel"));
var_Items->AddItem(TVariant("Mechanik"));
var_Items->AddItem(TVariant("Motor"));
var_Items->AddItem(TVariant("Murks"));
var_Items->AddItem(TVariant("Märchen"));
var_Items->AddItem(TVariant("Möhren"));
var_Items->AddItem(TVariant("Mühle"));
ComboBox1->Columns->get_Item(TVariant(0))->SortOrder = Excomboboxlib_tlb::SortOrderEnum::SortAscending;
ComboBox1->EndUpdate();
|
|
434
|
How can I simulate displaying groups
ComboBox1->HasLines = Excomboboxlib_tlb::HierarchyLineEnum::exNoLine;
ComboBox1->ScrollBySingleLine = true;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Name");
var_Columns->Add(L"A");
var_Columns->Add(L"B");
var_Columns->Add(L"C");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Group 1"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerBoth);
var_Items->set_ItemHeight(h,24);
var_Items->set_SortableItem(h,false);
long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(1));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(3));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(4));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(5));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(6));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Group 2"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerBoth);
var_Items->set_ItemHeight(h,24);
var_Items->set_SortableItem(h,false);
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(1));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(2));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(3));
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_CellCaption(TVariant(h1),TVariant(1),TVariant(4));
var_Items->set_CellCaption(TVariant(h1),TVariant(2),TVariant(5));
var_Items->set_CellCaption(TVariant(h1),TVariant(3),TVariant(6));
var_Items->set_ExpandItem(h,true);
|
|
433
|
How can I specify an item to be always the first item
ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->Columns->Add(L"Numbers")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
var_Items->AddItem(TVariant(4));
long h = var_Items->AddItem(TVariant("first"));
var_Items->set_ItemPosition(h,0);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_SortableItem(h,false);
var_Items->SortChildren(0,TVariant(0),false);
ComboBox1->EndUpdate();
|
|
432
|
How can I specify an item to be always the last item
ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->Columns->Add(L"Numbers")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
var_Items->AddItem(TVariant(4));
long h = var_Items->AddItem(TVariant("last"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_SortableItem(h,false);
var_Items->SortChildren(0,TVariant(0),true);
ComboBox1->EndUpdate();
|
|
431
|
Can I allow sorting only the child items
ComboBox1->BeginUpdate();
ComboBox1->Columns->Add(L"Childs");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->set_SortableItem(h,false);
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->set_SortableItem(h,false);
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
ComboBox1->EndUpdate();
|
|
430
|
Can I specify a terminal item so it will mark the end of childs
ComboBox1->BeginUpdate();
ComboBox1->ScrollBySingleLine = true;
ComboBox1->Columns->Add(L"P1");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(h,TVariant(""),TVariant(""));
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_ItemHeight(h,2);
var_Items->set_SelectableItem(h,false);
var_Items->set_SortableItem(h,false);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(h,TVariant(""),TVariant(""));
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_ItemHeight(h,2);
var_Items->set_SelectableItem(h,false);
var_Items->set_SortableItem(h,false);
ComboBox1->EndUpdate();
|
|
429
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->Columns->Add(L"Numbers")->SortType = Excomboboxlib_tlb::SortTypeEnum::SortNumeric;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
var_Items->AddItem(TVariant(4));
long h = var_Items->AddItem(TVariant("top 3"));
var_Items->set_ItemPosition(h,3);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_SortableItem(h,false);
var_Items->SortChildren(0,TVariant(0),false);
ComboBox1->EndUpdate();
|
|
428
|
Can I specify an item to be a separator
ComboBox1->BeginUpdate();
ComboBox1->TreeColumnIndex = -1;
ComboBox1->SortOnClick = Excomboboxlib_tlb::SortOnClickEnum::exNoSort;
ComboBox1->Columns->Add(L"Numbers");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
long h = var_Items->AddItem(TVariant("separator"));
var_Items->set_SelectableItem(h,false);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Excomboboxlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_ItemDividerLine(h,Excomboboxlib_tlb::DividerLineEnum::ThinLine);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Excomboboxlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->AddItem(TVariant(3));
var_Items->AddItem(TVariant(4));
ComboBox1->EndUpdate();
|
|
427
|
How can I collapse all items
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(0,false);
ComboBox1->EndUpdate();
|
|
426
|
How can I expand all items
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
ComboBox1->Columns->Add(L"Items");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(0,true);
ComboBox1->EndUpdate();
|
|
425
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
ComboBox1->Columns->Add(L"Value");
ComboBox1->Columns->Add(L"FormatCell");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant(1));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(12));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"currency(value)");
h = var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->set_CellCaption(TVariant(h),TVariant(1),TVariant(TDateTime(2001,1,1).operator double()));
var_Items->set_CellCaptionFormat(TVariant(h),TVariant(1),Excomboboxlib_tlb::CaptionFormatEnum::exHTML);
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"longdate(value) replace '2001' with '<b>2001</b>'");
ComboBox1->EndUpdate();
|
|
424
|
How can I change the foreground color for a particular column
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderForeColor,TVariant(8439039));
var_Columns->Add(L"Column 3");
|
|
423
|
How can I change the background color for a particular column
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Column 1");
var_Columns->Add(L"Column 2")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exHeaderBackColor,TVariant(8439039));
var_Columns->Add(L"Column 3");
|
|
422
|
How can I display the column using currency format and enlarge the font for certain values
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Currency");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("1.23"));
var_Items->AddItem(TVariant("2.34"));
var_Items->AddItem(TVariant("9.94"));
var_Items->AddItem(TVariant("11.94"));
var_Items->AddItem(TVariant("1000"));
|
|
421
|
How can I highlight only parts of the cells
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
420
|
How can I get the number of occurrences of a specified string in the cell
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"occurrences");
var_Column->ComputedField = L"lower(%0) count 'o'";
var_Column->FormatColumn = L"'contains ' + value + ' of \\'o\\' chars'";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1 oooof the root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
|
|
419
|
How can I display dates in my format
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Date");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(TDateTime(2001,1,21).operator double()));
var_Items->AddItem(TVariant(TDateTime(2002,2,22).operator double()));
var_Items->AddItem(TVariant(TDateTime(2003,3,13).operator double()));
var_Items->AddItem(TVariant(TDateTime(2004,4,24).operator double()));
|
|
418
|
How can I display dates in short format
ComboBox1->Columns->Add(L"Date")->FormatColumn = L"shortdate(value)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->AddItem(TVariant(TDateTime(2002,2,2).operator double()));
var_Items->AddItem(TVariant(TDateTime(2003,3,3).operator double()));
var_Items->AddItem(TVariant(TDateTime(2004,4,4).operator double()));
|
|
417
|
How can I display dates in long format
ComboBox1->Columns->Add(L"Date")->FormatColumn = L"longdate(value)";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->AddItem(TVariant(TDateTime(2002,2,2).operator double()));
var_Items->AddItem(TVariant(TDateTime(2003,3,3).operator double()));
var_Items->AddItem(TVariant(TDateTime(2004,4,4).operator double()));
|
|
416
|
How can I display only the right part of the cell
ComboBox1->Columns->Add(L"");
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Right");
var_Column->ComputedField = L"%0 right 2";
var_Column->FormatColumn = L"'\"' + value + '\"'";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("SChild 3"));
var_Items->set_ExpandItem(h,true);
|
|
415
|
How can I display true or false instead 0 and -1
ComboBox1->Columns->Add(L"Boolean")->FormatColumn = L"value != 0 ? 'true' : 'false'";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(true));
var_Items->AddItem(TVariant(false));
var_Items->AddItem(TVariant(true));
var_Items->AddItem(TVariant(0));
var_Items->AddItem(TVariant(1));
|
|
414
|
How can I display icons or images instead numbers
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Icons");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellCaptionFormat,TVariant(1));
var_Column->FormatColumn = L"'The cell displays the icon <img>'+value+'</img> instead ' + value";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
|
|
413
|
How can I display the column using currency
ComboBox1->Columns->Add(L"Currency")->FormatColumn = L"currency(dbl(value))";
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("1.23"));
var_Items->AddItem(TVariant("2.34"));
var_Items->AddItem(TVariant("0"));
var_Items->AddItem(TVariant(5));
var_Items->AddItem(TVariant("10000.99"));
|
|
412
|
How can I filter programatically using more columns
ComboBox1->BeginUpdate();
ComboBox1->MarkSearchColumn = false;
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"Car");
var_Columns->Add(L"Equipment");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
var_Items->set_CellCaption(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->get_Item(TVariant("Car"));
var_Column->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exFilter;
var_Column->Filter = L"Mazda";
Excomboboxlib_tlb::IColumnPtr var_Column1 = ComboBox1->Columns->get_Item(TVariant("Equipment"));
var_Column1->FilterType = Excomboboxlib_tlb::FilterTypeEnum::exPattern;
var_Column1->Filter = L"*ABS*|*ESP*";
ComboBox1->ApplyFilter();
ComboBox1->EndUpdate();
|
|
411
|
I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::ComboBox1CellStateChanged(TObject *Sender,Excomboboxlib_tlb::HCELL Cell)
{
ComboBox1->LabelText = L"Cell";
OutputDebugString( PChar(ComboBox1->Items->get_CellCaption(TVariant(0),TVariant(Cell))) );
OutputDebugString( PChar(ComboBox1->Items->get_CellState(TVariant(0),TVariant(Cell))) );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->HeaderVisible = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = -1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->Columns->Add(L"Language")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("English"));
var_Items->AddItem(TVariant("Hebrew"));
var_Items->AddItem(TVariant("Spanish"));
ComboBox1->EndUpdate();
|
|
410
|
How can I display a different caption in the label area, when I click the cell's check box
// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::ComboBox1CellStateChanged(TObject *Sender,Excomboboxlib_tlb::HCELL Cell)
{
ComboBox1->LabelText = L"Cell";
OutputDebugString( PChar(ComboBox1->Items->get_CellCaption(TVariant(0),TVariant(Cell))) );
OutputDebugString( PChar(ComboBox1->Items->get_CellState(TVariant(0),TVariant(Cell))) );
}
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->HeaderVisible = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = -1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->Columns->Add(L"Language")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("English"));
var_Items->AddItem(TVariant("Hebrew"));
var_Items->AddItem(TVariant("Spanish"));
ComboBox1->LabelText = L" <b>custom</b> text ";
ComboBox1->EndUpdate();
|
|
409
|
How can I display a different caption in the label area
ComboBox1->BeginUpdate();
ComboBox1->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
ComboBox1->IntegralHeight = true;
ComboBox1->HeaderVisible = false;
ComboBox1->SingleEdit = true;
ComboBox1->SearchColumnIndex = -1;
ComboBox1->AdjustSearchColumn = false;
ComboBox1->Columns->Add(L"Language")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("English"));
var_Items->AddItem(TVariant("Hebrew"));
var_Items->AddItem(TVariant("Spanish"));
ComboBox1->LabelText = L" <b>custom</b> text ";
ComboBox1->EndUpdate();
|
|
408
|
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
ComboBox1->BeginUpdate();
ComboBox1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ComboBox1->FilterForVisible = true;
ComboBox1->FilterForBackColor = 0x1000000;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
ComboBox1->EndUpdate();
|
|
407
|
How can I change the background color for the filter field in the bottom part of the drop down portion
ComboBox1->BeginUpdate();
ComboBox1->FilterForVisible = true;
ComboBox1->FilterForBackColor = RGB(240,240,240);
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
ComboBox1->EndUpdate();
|
|
406
|
How can I display a filter field in the bottom part of the drop down portion
ComboBox1->BeginUpdate();
ComboBox1->FilterForVisible = true;
ComboBox1->IntegralHeight = true;
ComboBox1->Columns->Add(L"Default");
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
var_Items->AddItem(TVariant("Item 4"));
var_Items->AddItem(TVariant("Item 5"));
ComboBox1->EndUpdate();
|
|
405
|
Does your control support RightToLeft property for RTL languages or right to left
ComboBox1->BeginUpdate();
ComboBox1->LinesAtRoot = Excomboboxlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"P1");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
ComboBox1->RightToLeft = true;
ComboBox1->EndUpdate();
|
|
404
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
ComboBox1->BeginUpdate();
Excomboboxlib_tlb::IColumnsPtr var_Columns = ComboBox1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
var_Columns->Add(L"C3");
var_Columns->Add(L"C4");
var_Columns->Add(L"C5");
var_Columns->Add(L"C6");
var_Columns->Add(L"C7");
var_Columns->Add(L"C8");
ComboBox1->RightToLeft = true;
ComboBox1->EndUpdate();
|
|
403
|
Can I display the cell's check box after the text
Excomboboxlib_tlb::IColumnPtr var_Column = ComboBox1->Columns->Add(L"Column");
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,check"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant("Caption 1"))),TVariant(0),true);
var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant("Caption 2"))),TVariant(0),true);
|
|
402
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,check,icon,icons,picture"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Text"));
var_Items->set_CellImage(TVariant(h),TVariant(0),1);
var_Items->set_CellHasCheckBox(TVariant(h),TVariant(0),true);
|
|
401
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
ComboBox1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
ComboBox1->Columns->Add(L"Column")->set_Def(Excomboboxlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,icon,check,icons,picture"));
Excomboboxlib_tlb::IItemsPtr var_Items = ComboBox1->Items;
long h = var_Items->AddItem(TVariant("Text"));
var_Items->set_CellImage(TVariant(h),TVariant(0),1);
|